(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     92296,       3034]
NotebookOptionsPosition[     84992,       2788]
NotebookOutlinePosition[     85784,       2818]
CellTagsIndexPosition[     85656,       2812]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox[" ",
  FontSize->20],
 StyleBox["\[OpenCurlyDoubleQuote]By Example\[CloseCurlyDoubleQuote] \
introduction into the \[LineSeparator] Mathematica PairwiseComparisons` \
Package",
  FontSize->24]
}], "Title",
 CellChangeTimes->{{3.61588775212913*^9, 3.6158877862731752`*^9}, 
   3.615887831411735*^9, {3.615888168836982*^9, 3.6158881720111847`*^9}}],

Cell["\<\
 Konrad Ku\[LSlash]akowski (C) 2014, 2015
     e-mail: konrad@kulakowski.org
 
  The package and documentation is available under 
  GNU General Public Licence,  
     see: http://www.gnu.org/copyleft/gpl.html
     
 To install the package on the computer start Mathematica and choose 
 File/Install..., then select PairwiseComparisons.m as the package   
  source and press OK.
  
  To install the package at the Raspberry PI just copy them 
  into /opt/Wolfram/WolframEngine/10.0/AddOns/ExtraPackages   
  and restart the application  \
\>", "Text",
 CellChangeTimes->{{3.615887794830412*^9, 3.615887827875889*^9}, {
  3.6327636763364983`*^9, 3.632763678404557*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Introduction",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Subtitle",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{{3.615888149174273*^9, 3.615888151455085*^9}}],

Cell["Loading the package", "Text",
 CellChangeTimes->{3.615887870813167*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"<<", " ", "PairwiseComparisons`"}], ";"}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{3.632765611602405*^9}],

Cell["Printing function usage", "Text",
 CellChangeTimes->{3.615887892197319*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"?", " ", "KoczkodajIdx"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 StyleBox["\<\"KoczkodajIdx[M] returns the value of the Koczkodaj \
inconsistency computed for the matrix M\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.632763631075181*^9},
 CellTags->"Info3632767231-5476817"]
}, Open  ]],

Cell["Printing full (with implementation) function usage", "Text",
 CellChangeTimes->{3.6158879154159527`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"??", " ", "KoczkodajIdx"}],
  FontWeight->"Plain"]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"KoczkodajIdx[M] returns the value of the Koczkodaj \
inconsistency computed for the matrix M\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.632763455839621*^9},
 CellTags->"Info3632767055-5476817"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{
         "KoczkodajIdx", "[", "PairwiseComparisons`Private`matrix_", "]"}], ":=", 
         RowBox[{"Last", "[", 
          RowBox[{
          "KoczkodajTheWorstTriad", "[", "PairwiseComparisons`Private`matrix",
            "]"}], "]"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[PairwiseComparisons`KoczkodajIdx],
  Editable->False]], "Print",
 CellChangeTimes->{3.632763455877192*^9},
 CellTags->"Info3632767055-5476817"]
}, Open  ]]
}, Open  ]],

Cell["Print all the public functions in the package", "Text",
 CellChangeTimes->{3.615887941918262*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"?", "PairwiseComparisons`*"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 DynamicModuleBox[{Typeset`open$$ = True}, 
  PaneSelectorBox[{False->
   RowBox[{
    OpenerBox[Dynamic[Typeset`open$$],
     ImageSize->Small], 
    StyleBox["PairwiseComparisons`", "InfoHeading"]}], True->GridBox[{
     {
      RowBox[{
       OpenerBox[Dynamic[Typeset`open$$],
        ImageSize->Small], 
       StyleBox["PairwiseComparisons`", "InfoHeading"]}]},
     {GridBox[{
        {
         ButtonBox["AIJadd",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"AIJadd", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["GlobalDiscrepancy",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "GlobalDiscrepancy", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["KoczkodajImproveMatrixStep",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "KoczkodajImproveMatrixStep", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["AIJgeom",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"AIJgeom", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREConstantTermVector",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREConstantTermVector", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["KoczkodajTheWorstTriad",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "KoczkodajTheWorstTriad", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["COP1Check",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"COP1Check", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREFullRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"HREFullRank", "PairwiseComparisons`"}},
          
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["KoczkodajTheWorstTriads",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "KoczkodajTheWorstTriads", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["COP1ViolationList",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "COP1ViolationList", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREGeomConstantTermVector",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREGeomConstantTermVector", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["KoczkodajTriadIdx",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "KoczkodajTriadIdx", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["COP2Check",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"COP2Check", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREGeomFullRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREGeomFullRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["LocalDiscrepancyMatrix",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "LocalDiscrepancyMatrix", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["COP2ViolationList",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "COP2ViolationList", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREGeomIntermediateRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREGeomIntermediateRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["PrincipalEigenValue",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "PrincipalEigenValue", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["DeleteColumns",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "DeleteColumns", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREGeomMatrix",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREGeomMatrix", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["PrincipalEigenVector",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "PrincipalEigenVector", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["DeleteRows",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"DeleteRows", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREGeomPartialRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREGeomPartialRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["RankOrder",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"RankOrder", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["DeleteRowsAndColumns",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "DeleteRowsAndColumns", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREGeomRescaledRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREGeomRescaledRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["RankToVector",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"RankToVector", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["EigenvalueRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "EigenvalueRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREMatrix",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"HREMatrix", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["RecreatePCMatrix",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "RecreatePCMatrix", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["ErrorMatrix",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"ErrorMatrix", "PairwiseComparisons`"}},
          
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HREPartialRank",
          BaseStyle->"InformationLink",
          ButtonData:>{
           "Info3632769865-7960493", {
            "HREPartialRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["SaatyIdx",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"SaatyIdx", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["GeometricRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "GeometricRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["HRERescaledRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "HRERescaledRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["SetDiagonal",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"SetDiagonal", "PairwiseComparisons`"}},
          
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["GeometricRescaledRank",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "GeometricRescaledRank", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["KoczkodajConsistentTriad",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "KoczkodajConsistentTriad", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["VersionPC",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"VersionPC", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"]},
        {
         ButtonBox["GetMatrixEntry",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {
            "GetMatrixEntry", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], 
         ButtonBox["KoczkodajIdx",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3632769865-7960493", {"KoczkodajIdx", "PairwiseComparisons`"}},
          ButtonNote->"PairwiseComparisons`"], ""}
       },
       DefaultBaseStyle->"InfoGrid",
       GridBoxItemSize->{"Columns" -> {{
            Scaled[0.31666666666666665`]}}}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, 
   Dynamic[Typeset`open$$],
   ImageSize->Automatic]]], "Print", "InfoCell",
 CellChangeTimes->{3.632766265559352*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.632763482064919*^9, 3.632763657217304*^9}],

Cell["Assign the matrix to the variable M", "Text",
 CellChangeTimes->{3.6158879667744713`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"M", "=", 
   FormBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "2", "3"},
       {
        FractionBox["1", "2"], "1", "4"},
       {
        FractionBox["1", "3"], 
        FractionBox["1", "4"], "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    TraditionalForm]}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "2"], ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "3"], ",", 
     FractionBox["1", "4"], ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.610958822640921*^9, 3.610961053105085*^9, 
  3.6158897565374413`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Eigenvalue based method",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Subtitle",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{{3.615888204556849*^9, 3.615888209338182*^9}, {
  3.615889858583799*^9, 3.6158898592060738`*^9}}],

Cell["Calculate the principal eigenvalue of the matrix M", "Text",
 CellChangeTimes->{3.615887986509667*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"PrincipalEigenValue", "[", "M", "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData["3.1078473338549735`"], "Output",
 CellChangeTimes->{3.6109588369193773`*^9, 3.610961054702477*^9, 
  3.615889756565659*^9}]
}, Open  ]],

Cell["Calculate the principal eigenvector of the matrix M", "Text",
 CellChangeTimes->{3.615888013476534*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"PrincipalEigenVector", "[", "M", "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.160167646103809`", ",", "2.884499140614816`", ",", "1.`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.610958862054473*^9, 3.6109610597992496`*^9, 
  3.6158897566004953`*^9}]
}, Open  ]],

Cell["\<\
Calculate the value of the Saaty (eigenvalue based) inconsistency index of M\
\>", "Text",
 CellChangeTimes->{3.6158880307648163`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"SaatyIdx", "[", "M", "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData["0.053923666927486735`"], "Output",
 CellChangeTimes->{3.610958885556662*^9, 3.610961062003024*^9, 
  3.615889756636176*^9}]
}, Open  ]],

Cell["Calculate the eigenvalue based ranking based on M", "Text",
 CellChangeTimes->{3.6158880473002653`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"EigenvalueRank", "[", "M", "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.5171336186319183`", ",", "0.3585604248241818`", ",", 
   "0.12430595654389986`"}], "}"}]], "Output",
 CellChangeTimes->{3.610958940937582*^9, 3.610961063739395*^9, 
  3.615889756698989*^9}]
}, Open  ]],

Cell["Calculate the geometric mean based ranking based on M", "Text",
 CellChangeTimes->{3.615888064547859*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Geometric Mean method (Logarithmic Least Square \
Method)",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Subtitle",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{{3.615888229637302*^9, 3.615888247338238*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"N", "[", 
   RowBox[{"GeometricRank", "[", "M", "]"}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.8171205928321397`", ",", "1.2599210498948732`", ",", 
   "0.4367902323681495`"}], "}"}]], "Output",
 CellChangeTimes->{3.610958972469926*^9, 3.61096106491779*^9, 
  3.615889756733191*^9}]
}, Open  ]],

Cell["\<\
Calculate the geometric mean based ranking based on M rescaled so that the \
sum of entries is 1\
\>", "Text",
 CellChangeTimes->{3.6158880844183073`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"N", "[", 
   RowBox[{"GeometricRescaledRank", "[", "M", "]"}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.5171336186319182`", ",", "0.35856042482418193`", ",", 
   "0.12430595654389989`"}], "}"}]], "Output",
 CellChangeTimes->{3.6109590031519127`*^9, 3.610961067232546*^9, 
  3.6158897567724733`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Heuristic Rating Estimation Method (additive)",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Subtitle",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{{3.615888277307191*^9, 3.615888295831815*^9}}],

Cell[TextData[Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{
   "Calculate", " ", "the", " ", "HRE", " ", "Matrix", " ", "for", " ", "the",
     " ", "given", " ", "matrix", " ", "M", " ", "where", " ", "the", " ", 
    "unknown", " ", "concepts", " ", "are", 
    StyleBox[" ",
     FontWeight->"Plain"], 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["c", "1"], ",", 
      SubscriptBox["c", "2"], ",", 
      SubscriptBox["c", "3"]}], "}"}], 
    StyleBox[" ",
     FontWeight->"Plain"], "and", " ", "the", " ", "known", " ", "concepts", 
    " ", "are", 
    StyleBox[" ",
     FontWeight->"Plain"], 
    RowBox[{
     StyleBox[
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["c", "4"], "=", "5"}], ",", 
        RowBox[{
         SubscriptBox["c", "5"], "=", "9"}]}], "}"}],
      FontWeight->"Plain"], 
     StyleBox[".",
      FontWeight->"Plain"], 
     StyleBox[" ",
      FontWeight->"Plain"], "It"}], " ", "is", " ", "assumed", " ", "that", 
    " ", "the", " ", "unknown", " ", "concepts", " ", "has", " ", "value", 
    " ", "0", " ", "whilst", " ", "the", " ", "known", " ", "concepts", " ", 
    "have", " ", "the", " ", "values", " ", "greater", " ", "than", 
    StyleBox[" ",
     FontWeight->"Plain"], 
    StyleBox["0.",
     FontWeight->"Plain"]}], "\[IndentingNewLine]"}],
  FontFamily->"Arial"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{
   "Further", " ", "references", " ", "could", " ", "be", " ", "found", " ", 
    "in", 
    StyleBox[" ",
     FontWeight->"Plain"], 
    RowBox[{"papers", ":", "\[IndentingNewLine]", "  ", 
     RowBox[{"*", " ", "Konrad", " ", "Ku\[LSlash]akowski"}]}]}], ",", " ", 
   RowBox[{
   "Heuristic", " ", "Rating", " ", "Estimation", " ", "Approach", " ", "to", 
    " ", "The", " ", "Pairwise", " ", "Comparisons", " ", "Method"}], " "}],
  FontFamily->"Arial"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"    ", 
   RowBox[{
    RowBox[{"http", ":"}], "//", 
    RowBox[{
     RowBox[{
      RowBox[{"arxiv", ".", "org"}], "/", "abs"}], "/", "1309.0386"}]}], 
   "  "}],
  FontFamily->"Arial"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"  ", 
   RowBox[{
    RowBox[{"*", " ", "Konrad", " ", "Ku\[LSlash]akowski"}], ",", " ", 
    RowBox[{
    "A", " ", "heuristic", " ", "rating", " ", "estimation", " ", "algorithm",
      " ", "for", " ", "the", " ", "pairwise", " ", "comparisons", " ", 
     "method"}]}]}],
  FontFamily->"Arial"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"    ", 
   RowBox[{
    RowBox[{"http", ":"}], "//", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"dx", ".", "doi", ".", "org"}], "/", "10.1007"}], "/", 
      "s10100"}], "-", "013", "-", "0311", "-", "x", "   "}]}]}],
  FontFamily->"Arial"]}],
 CellChangeTimes->{{3.610959049586088*^9, 3.610959080248348*^9}, {
  3.610959178036406*^9, 3.6109592436962967`*^9}, {3.610959292476379*^9, 
  3.610959376372218*^9}, {3.610959463942563*^9, 
  3.610959572617002*^9}}]], "Text",
 CellChangeTimes->{{3.615888100167953*^9, 3.615888114222782*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"HREMatrix", "[", 
   RowBox[{
    FormBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         SubscriptBox["m", 
          RowBox[{"1", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"2", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"3", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"4", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"5", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "5"}]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     TraditionalForm], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0"},
       {"0"},
       {"0"},
       {"5"},
       {"9"}
      }], "\[NoBreak]", ")"}]}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", 
      RowBox[{"-", 
       FractionBox[
        SubscriptBox["m", 
         RowBox[{"1", ",", "2"}]], "4"]}], 
      RowBox[{"-", 
       FractionBox[
        SubscriptBox["m", 
         RowBox[{"1", ",", "3"}]], "4"]}]},
     {
      RowBox[{"-", 
       FractionBox[
        SubscriptBox["m", 
         RowBox[{"2", ",", "1"}]], "4"]}], "1", 
      RowBox[{"-", 
       FractionBox[
        SubscriptBox["m", 
         RowBox[{"2", ",", "3"}]], "4"]}]},
     {
      RowBox[{"-", 
       FractionBox[
        SubscriptBox["m", 
         RowBox[{"3", ",", "1"}]], "4"]}], 
      RowBox[{"-", 
       FractionBox[
        SubscriptBox["m", 
         RowBox[{"3", ",", "2"}]], "4"]}], "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.610959394142329*^9, 3.61095940520299*^9}, 
   3.610961068212962*^9, 3.6158897568023777`*^9, 3.615890056765329*^9}]
}, Open  ]],

Cell[TextData[Cell[BoxData[
 RowBox[{"Calculate", " ", "the", " ", "HRE", " ", "constant", " ", "term", 
  " ", "vector", " ", "for", " ", "M", " ", "where", " ", 
  SubscriptBox[
   StyleBox["C",
    FontWeight->"Plain"], "U"], " ", "equals", " ", 
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["c", "1"], ",", 
    SubscriptBox["c", "2"], ",", 
    SubscriptBox["c", "3"]}], "}"}], " ", "and", " ", 
  SubscriptBox[
   StyleBox["C",
    FontWeight->"Plain"], 
   RowBox[{"K", " "}]], "equals", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SubscriptBox["c", "4"], "=", "5"}], ",", 
    RowBox[{
     SubscriptBox["c", "5"], "=", "9"}]}], "}"}]}]],
 CellChangeTimes->{{3.6158883196659307`*^9, 3.615888321609139*^9}},
 FontFamily->"Arial",
 FontColor->GrayLevel[0]]], "Text",
 CellChangeTimes->{3.6158883309708138`*^9, 3.615888385753448*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"HREConstantTermVector", "[", 
   RowBox[{
    FormBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         SubscriptBox["m", 
          RowBox[{"1", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"2", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"3", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"4", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"5", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "5"}]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     TraditionalForm], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0"},
       {"0"},
       {"0"},
       {"5"},
       {"9"}
      }], "\[NoBreak]", ")"}]}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       FractionBox[
        RowBox[{"5", " ", 
         SubscriptBox["m", 
          RowBox[{"1", ",", "4"}]]}], "4"], "+", 
       FractionBox[
        RowBox[{"9", " ", 
         SubscriptBox["m", 
          RowBox[{"1", ",", "5"}]]}], "4"]}]},
     {
      RowBox[{
       FractionBox[
        RowBox[{"5", " ", 
         SubscriptBox["m", 
          RowBox[{"2", ",", "4"}]]}], "4"], "+", 
       FractionBox[
        RowBox[{"9", " ", 
         SubscriptBox["m", 
          RowBox[{"2", ",", "5"}]]}], "4"]}]},
     {
      RowBox[{
       FractionBox[
        RowBox[{"5", " ", 
         SubscriptBox["m", 
          RowBox[{"3", ",", "4"}]]}], "4"], "+", 
       FractionBox[
        RowBox[{"9", " ", 
         SubscriptBox["m", 
          RowBox[{"3", ",", "5"}]]}], "4"]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.610959429317706*^9, 3.6109594362991323`*^9}, 
   3.6109610704460382`*^9, 3.6158897568342257`*^9, 3.615890064182062*^9}]
}, Open  ]],

Cell["\<\
Auxiliary function that transform an upper triangle matrix into a full and \
reciprocal matrix\
\>", "Text",
 CellChangeTimes->{3.61588840605055*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"M", " ", "=", " ", 
   RowBox[{"RecreatePCMatrix", "[", 
    FormBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", 
         FractionBox["3", "5"], 
         FractionBox["4", "7"], 
         FractionBox["5", "8"], 
         FractionBox["5", "10"]},
        {"0", "1", 
         FractionBox["5", "7"], 
         FractionBox["5", "2"], 
         FractionBox["10", "3"]},
        {"0", "0", "1", 
         FractionBox["7", "2"], "4"},
        {"0", "0", "0", "1", 
         FractionBox["4", "3"]},
        {"0", "0", "0", "0", "1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     TraditionalForm], "]"}]}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     FractionBox["3", "5"], ",", 
     FractionBox["4", "7"], ",", 
     FractionBox["5", "8"], ",", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["5", "3"], ",", "1", ",", 
     FractionBox["5", "7"], ",", 
     FractionBox["5", "2"], ",", 
     FractionBox["10", "3"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["7", "4"], ",", 
     FractionBox["7", "5"], ",", "1", ",", 
     FractionBox["7", "2"], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["8", "5"], ",", 
     FractionBox["2", "5"], ",", 
     FractionBox["2", "7"], ",", "1", ",", 
     FractionBox["4", "3"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     FractionBox["3", "10"], ",", 
     FractionBox["1", "4"], ",", 
     FractionBox["3", "4"], ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.610959605820106*^9, 3.6109596130070877`*^9}, 
   3.610961071458962*^9, 3.615889188266797*^9, 3.615889756869175*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.610959688477159*^9, 3.6109596921470613`*^9}}],

Cell[TextData[Cell[BoxData[
 RowBox[{"Defining", " ", "known", " ", "and", " ", "unknown", " ", 
  RowBox[{"alternatives", ".", " ", "It"}], " ", "is", " ", "assumed", " ", 
  "that", " ", 
  SubscriptBox["c", "2"], " ", "and", " ", 
  SubscriptBox["c", "3"], " ", "are", " ", "known", " ", "and", " ", "equal", 
  " ", "5", " ", "and", " ", "7", " ", "correspondingly"}]],
 FontFamily->"Arial"]], "Text",
 CellChangeTimes->{{3.615888423755468*^9, 3.6158884332758617`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"mk", " ", "=", " ", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0"},
      {"5"},
      {"7"},
      {"0"},
      {"0"}
     }], "\[NoBreak]", ")"}]}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "5", "}"}], ",", 
   RowBox[{"{", "7", "}"}], ",", 
   RowBox[{"{", "0", "}"}], ",", 
   RowBox[{"{", "0", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.610959727981371*^9, 3.610961072657395*^9, 
  3.615889201344056*^9, 3.615889756931507*^9}]
}, Open  ]],

Cell[TextData[Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Calculate", " ", "the", " ", "HRE", " ", "ranking", " ", "vector", " ", 
    "for", " ", "unknown", " ", "alternatives", " ", 
    RowBox[{"i", ".", "e", ".", " ", "for"}], " ", 
    SubscriptBox["c", "1"]}], ",", 
   RowBox[{
    SubscriptBox["c", "4"], " ", "and", " ", 
    SubscriptBox["c", "5"], " ", "only"}]}],
  FontFamily->"Arial"]]]], "Text",
 CellChangeTimes->{3.6158884487388153`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"mu", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"HREPartialRank", "[", 
     RowBox[{"M", ",", "mk"}], "]"}], "]"}]}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.610960036391541*^9, 3.610960037669932*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2.52764745308311`"},
     {"2.883378016085791`"},
     {"2.616957104557641`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.610959841904636*^9, 3.610960038268107*^9, 
  3.610960082565969*^9, 3.610961073537097*^9, 3.615889756968399*^9, 
  3.615890081119173*^9}]
}, Open  ]],

Cell["\<\
Calculate the full HRE ranking for the given input matrix M and the vector mk\
\
\>", "Text",
 CellChangeTimes->{3.615888461403867*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"mu", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"HREFullRank", "[", 
     RowBox[{"M", ",", "mk"}], "]"}], "]"}]}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.610960031702169*^9, 3.610960041052114*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.52764745308311`", ",", "5.`", ",", "7.`", ",", "2.883378016085791`", ",",
    "2.616957104557641`"}], "}"}]], "Output",
 CellChangeTimes->{3.61095995261969*^9, 3.610960041691843*^9, 
  3.610961075151431*^9, 3.615889757004284*^9}]
}, Open  ]],

Cell["\<\
Calculate the full HRE ranking rescaled so that all its entries sum up to 1\
\>", "Text",
 CellChangeTimes->{{3.6158896677428703`*^9, 3.615889681578534*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mu", " ", "=", " ", 
  RowBox[{"N", "[", 
   RowBox[{"HRERescaledRank", "[", 
    RowBox[{"M", ",", "mk"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.615889691813064*^9, 3.615889705549756*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.12620579450668049`", ",", "0.24965070653492516`", ",", 
   "0.3495109891488952`", ",", "0.1439674717846177`", ",", 
   "0.1306650380248814`"}], "}"}]], "Output",
 CellChangeTimes->{3.615889706378199*^9, 3.615889757038517*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Heuristic Rating Estimation Method \
(multiplicative/geometric)",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Subtitle",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{{3.6158888085571127`*^9, 3.6158888185460863`*^9}}],

Cell["\<\
Further references could be found in papers:
  * Konrad Ku\[LSlash]akowski, Grobler-D\:0119bska Katarzyna, W\:0105s Jaros\
\[LSlash]aw, Heuristic rating estimation - geometric approach,  \
http://arxiv.org/abs/1404.6981  \
\>", "Text",
 CellChangeTimes->{{3.615888856202147*^9, 3.615888897986739*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HREGeomMatrix", 
  StyleBox["[",
   FontWeight->"Plain"], 
  StyleBox[
   RowBox[{
    FormBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         SubscriptBox["m", 
          RowBox[{"1", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"2", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"3", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"4", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"5", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "5"}]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     TraditionalForm], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0"},
       {"0"},
       {"0"},
       {
        SubscriptBox["q", "4"]},
       {
        SubscriptBox["q", "5"]}
      }], "\[NoBreak]", ")"}]}],
   FontWeight->"Plain"], 
  StyleBox["]",
   FontWeight->"Plain"]}]], "Input",
 CellChangeTimes->{{3.615888946941042*^9, 3.6158889559051867`*^9}, {
  3.615889100399428*^9, 3.615889109302731*^9}, {3.61588914083924*^9, 
  3.6158891426303368`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"4", 
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}]},
     {
      RowBox[{"-", "1"}], "4", 
      RowBox[{"-", "1"}]},
     {
      RowBox[{"-", "1"}], 
      RowBox[{"-", "1"}], "4"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.615888958380362*^9, 3.615888965718896*^9}, {
   3.615889111109396*^9, 3.61588912016074*^9}, {3.615889154304788*^9, 
   3.615889161144369*^9}, 3.6158897570701103`*^9, 3.615890092404634*^9}]
}, Open  ]],

Cell["Calculate the HRE constant term vector", "Text",
 CellChangeTimes->{3.615889006308126*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HREGeomConstantTermVector", "[", 
  StyleBox[
   RowBox[{
    FormBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         SubscriptBox["m", 
          RowBox[{"1", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"1", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"2", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"2", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"3", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"3", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"4", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"4", ",", "5"}]]},
        {
         SubscriptBox["m", 
          RowBox[{"5", ",", "1"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "2"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "3"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "4"}]], 
         SubscriptBox["m", 
          RowBox[{"5", ",", "5"}]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     TraditionalForm], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0"},
       {"0"},
       {"0"},
       {
        SubscriptBox["q", "4"]},
       {
        SubscriptBox["q", "5"]}
      }], "\[NoBreak]", ")"}]}],
   FontWeight->"Plain"], 
  StyleBox["]",
   FontWeight->"Plain"]}]], "Input",
 CellChangeTimes->{{3.615889013223619*^9, 3.615889025444687*^9}, {
  3.615889123974401*^9, 3.615889147638667*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{"log", "(", 
        RowBox[{
         SubscriptBox["q", "4"], " ", 
         SubscriptBox["q", "5"], " ", 
         SubscriptBox["m", 
          RowBox[{"1", ",", "2"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"1", ",", "3"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"1", ",", "4"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"1", ",", "5"}]]}], ")"}], 
       RowBox[{"log", "(", "10", ")"}]]},
     {
      FractionBox[
       RowBox[{"log", "(", 
        RowBox[{
         SubscriptBox["q", "4"], " ", 
         SubscriptBox["q", "5"], " ", 
         SubscriptBox["m", 
          RowBox[{"2", ",", "1"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"2", ",", "3"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"2", ",", "4"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"2", ",", "5"}]]}], ")"}], 
       RowBox[{"log", "(", "10", ")"}]]},
     {
      FractionBox[
       RowBox[{"log", "(", 
        RowBox[{
         SubscriptBox["q", "4"], " ", 
         SubscriptBox["q", "5"], " ", 
         SubscriptBox["m", 
          RowBox[{"3", ",", "1"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"3", ",", "2"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"3", ",", "4"}]], " ", 
         SubscriptBox["m", 
          RowBox[{"3", ",", "5"}]]}], ")"}], 
       RowBox[{"log", "(", "10", ")"}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.615889026100939*^9, {3.6158891286697598`*^9, 3.6158891508611937`*^9}, 
   3.615889757105051*^9, 3.615890100451118*^9}]
}, Open  ]],

Cell[TextData[Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Calculate", " ", "the", " ", "HRE", " ", "geometric", " ", "ranking", " ",
     "vector", " ", "for", " ", "unknown", " ", "alternatives", " ", 
    RowBox[{"i", ".", "e", ".", " ", "for"}], " ", 
    SubscriptBox["c", "1"]}], ",", 
   RowBox[{
    SubscriptBox["c", "4"], " ", "and", " ", 
    SubscriptBox["c", "5"], " ", "only"}]}],
  FontFamily->"Arial"]]]], "Text",
 CellChangeTimes->{{3.615889237684353*^9, 3.615889243993082*^9}, {
  3.6158895502267313`*^9, 3.6158895502787247`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"mu", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"HREGeomPartialRank", "[", 
     RowBox[{"M", ",", "mk"}], "]"}], "]"}]}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.615889273913722*^9, 3.6158892863747473`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2.1127266378660736`"},
     {"2.490352341953546`"},
     {"2.1334436078163708`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.615889287758438*^9, 3.6158897571381483`*^9, 
  3.615890111619844*^9}]
}, Open  ]],

Cell["\<\
Calculate the full HRE geometric ranking for the given input matrix M and the \
vector mk\
\>", "Text",
 CellChangeTimes->{{3.615889310542919*^9, 3.615889332005328*^9}, {
  3.615889544687554*^9, 3.615889545953107*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"mu", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"HREGeomFullRank", "[", 
     RowBox[{"M", ",", "mk"}], "]"}], "]"}]}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.61588935102442*^9, 3.615889358999874*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.1127266378660736`", ",", "5.`", ",", "7.`", ",", "2.490352341953546`", 
   ",", "2.1334436078163708`"}], "}"}]], "Output",
 CellChangeTimes->{3.615889360120018*^9, 3.615889757170677*^9}]
}, Open  ]],

Cell["\<\
Calculate the full HRE geometric ranking, rescaled so that all its entries \
sum up to 1\
\>", "Text",
 CellChangeTimes->{{3.6158893778388977`*^9, 3.615889389466296*^9}, {
  3.615889420730624*^9, 3.615889432978003*^9}, {3.615889526609991*^9, 
  3.615889528181196*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"mu", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"HREGeomRescaledRank", "[", 
     RowBox[{"M", ",", "mk"}], "]"}], "]"}]}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.615889401844866*^9, 3.6158894105716057`*^9}, {
  3.615889718173444*^9, 3.615889724537491*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.11275980524050053`", ",", "0.26685848329718564`", ",", 
   "0.37360187661605987`", ",", "0.1329143297698635`", ",", 
   "0.11386550507639048`"}], "}"}]], "Output",
 CellChangeTimes->{3.615889411527931*^9, 3.615889725622137*^9, 
  3.615889757206225*^9}]
}, Open  ]],

Cell["\<\
Show intermediate (before raisng up to the power) HRE geometric partial rank \
vector\
\>", "Text",
 CellChangeTimes->{{3.615889451907461*^9, 3.615889537110561*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"HREGeomIntermediateRank", "[", 
   RowBox[{"M", ",", "mk"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6158894724835167`*^9, 3.615889483362774*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.3248433080573`"},
     {"0.3962607966301937`"},
     {"0.32908116787128766`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.615889486340509*^9, 3.615889757236539*^9, 
  3.615890121074903*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Bana e Costa and Vansnick\[CloseCurlyQuote]s \
Condition of Order Preservation test",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Subtitle",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{{3.6158895763353777`*^9, 3.6158895819893417`*^9}, {
  3.6158896170119667`*^9, 3.615889647450493*^9}}],

Cell["Let calculate the eigenvalue ranking", "Text",
 CellChangeTimes->{3.615888475263423*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"rank", " ", "=", " ", 
   RowBox[{"EigenvalueRank", "[", "M", "]"}]}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.610960190900632*^9, 3.610960196389434*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.11909159984125188`", ",", "0.27475988422762304`", ",", 
   "0.35652551848899955`", ",", "0.13095370938584494`", ",", 
   "0.1186692880562805`"}], "}"}]], "Output",
 CellChangeTimes->{3.610960197310574*^9, 3.610961078440753*^9, 
  3.615889757271228*^9}]
}, Open  ]],

Cell["\<\
.... and check whether the first Bana e Costa and Vansnick condition \
\[OpenCurlyDoubleQuote]condition of order preservation - COP\
\[CloseCurlyDoubleQuote]  is satisfied\
\>", "Text",
 CellChangeTimes->{{3.61588848813783*^9, 3.6158884920508947`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"COP1Check", "[", 
   RowBox[{"M", ",", "mu"}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.610960230688883*^9, 3.610961080517679*^9, 
  3.615889757306415*^9}]
}, Open  ]],

Cell["\<\
then check whether the second Bana e Costa and Vansnick condition (preserving \
intensity of preferences postulate) is satisfied\
\>", "Text",
 CellChangeTimes->{3.615888511797677*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"COP2Check", "[", 
   RowBox[{"M", ",", "mu"}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.610960287725429*^9, 3.610961081862339*^9, 
  3.615889757340468*^9}]
}, Open  ]],

Cell["\<\
Prints the list of pairs for which the 1st COP is not satisfied\
\>", "Text",
 CellChangeTimes->{3.615888530359161*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"COP1ViolationList", "[", 
   RowBox[{"M", ",", "mu"}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.61096030905459*^9, 3.610961082862097*^9, 
  3.615889757405312*^9}]
}, Open  ]],

Cell["\<\
Prints the list of pairs of pairs for which the 2nd COP is not satisfied\
\>", "Text",
 CellChangeTimes->{3.615888545695973*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"COP2ViolationList", "[", 
   RowBox[{"M", ",", "mu"}], "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "4"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "4"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "4"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.610960323488151*^9, 3.610961084615758*^9, 
  3.615889757443494*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Koczkodaj\[CloseCurlyQuote]s Iterative Inconsistency \
Reduction algorithm",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Subtitle",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{{3.6158899658454847`*^9, 3.615889991778357*^9}}],

Cell["Calculate the value of the Koczkodaj inconsistency index", "Text",
 CellChangeTimes->{3.615888566494874*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"N", "[", 
   RowBox[{"KoczkodajIdx", "[", "M", "]"}], "]"}],
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.610960619361732*^9, 3.610960621152897*^9}}],

Cell[BoxData["0.78125`"], "Output",
 CellChangeTimes->{3.610960370032226*^9, 3.610960621595873*^9, 
  3.610961085856598*^9, 3.61588975747164*^9}]
}, Open  ]],

Cell[TextData[Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{
    "Prints", " ", "the", " ", "worst", " ", "Koczkodaj", " ", "triad", " ", 
     "in", " ", 
     RowBox[{"M", ".", " ", "As"}], " ", "we", " ", "can", " ", "see", " ", 
     "it", " ", "is", 
     StyleBox[" ",
      FontWeight->"Plain"], 
     StyleBox[
      SubscriptBox[
       StyleBox["m",
        FontWeight->"Plain"], 
       RowBox[{"5", ",", "3"}]],
      FontWeight->"Plain"]}], 
    StyleBox["==",
     FontWeight->"Plain"], 
    StyleBox[
     FractionBox["1", "4"],
     FontWeight->"Plain"]}], ",", 
   RowBox[{
    SubscriptBox["m", 
     RowBox[{"3", ",", "1"}]], "==", 
    FractionBox["7", "4"]}], ",", " ", 
   RowBox[{
    StyleBox[
     SubscriptBox["m", 
      RowBox[{"5", ",", "1"}]],
     FontWeight->"Plain"], 
    StyleBox["\[Equal]",
     FontWeight->"Plain"], 
    RowBox[{
     StyleBox[
      RowBox[{"2", 
       StyleBox[".",
        FontWeight->"Plain"]}]], 
     StyleBox[" ",
      FontWeight->"Plain"], "The", " ", "value", " ", "of", " ", 
     "inconsistency", " ", "introduced", " ", "by", " ", "this", " ", "triad",
      " ", "is", 
     StyleBox[" ",
      FontWeight->"Plain"], 
     StyleBox[
      FractionBox["25", "32"],
      FontWeight->"Plain"]}]}]}],
  FontFamily->"Arial"]]]], "Text",
 CellChangeTimes->{
  3.615888578941889*^9, {3.615888648586982*^9, 3.6158886729908667`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"KoczkodajTheWorstTriad", "[", "M", "]"}],
  FontWeight->"Plain"]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "4"], ",", 
     FractionBox["7", "4"], ",", "2"}], "}"}], ",", 
   FractionBox["25", "32"]}], "}"}]], "Output",
 CellChangeTimes->{3.610960434485098*^9, 3.61096108703592*^9, 
  3.615889757506222*^9}]
}, Open  ]],

Cell["\<\
Perform one step of the Koczkodaj inconsistency reduction algorithm. On the \
output there is a new slightly modified matrix M2 that is expected to be more \
consistent than M\
\>", "Text",
 CellChangeTimes->{3.615888617900219*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox[
   StyleBox["M",
    FontWeight->"Plain"], "2"], 
  StyleBox[" ",
   FontWeight->"Plain"], 
  StyleBox["=",
   FontWeight->"Plain"], 
  StyleBox[" ",
   FontWeight->"Plain"], 
  StyleBox[
   RowBox[{"N", "[", 
    RowBox[{"KoczkodajImproveMatrixStep", "[", "M", "]"}], "]"}],
   FontWeight->"Plain"]}]], "Input",
 CellChangeTimes->{{3.632764591473414*^9, 3.632764592393036*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.`", "0.6`", "0.3443060377393186`", "0.625`", "0.8298265333662433`"},
     {"1.6666666666666667`", "1.`", "0.7142857142857143`", "2.5`", 
      "3.3333333333333335`"},
     {"2.904392866781852`", "1.4`", "1.`", "3.5`", "2.4101422641752297`"},
     {"1.6`", "0.4`", "0.2857142857142857`", "1.`", "1.3333333333333333`"},
     {"1.2050711320876148`", "0.3`", "0.41491326668312173`", "0.75`", "1.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.6109605572109118`*^9, 3.610960569976719*^9}, 
   3.610961088252862*^9, 3.6158897575412292`*^9, 3.615890133315898*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["KoczkodajIdx",
   FontWeight->"Plain"], 
  StyleBox["[",
   FontWeight->"Plain"], 
  SubscriptBox[
   StyleBox["M",
    FontWeight->"Plain"], "2"], 
  StyleBox["]",
   FontWeight->"Plain"]}]], "Input",
 CellChangeTimes->{{3.632764597513129*^9, 3.6327645983195868`*^9}}],

Cell[BoxData["0.5850867333168782`"], "Output",
 CellChangeTimes->{3.610960608784669*^9, 3.610961090390048*^9, 
  3.6158897575698977`*^9}]
}, Open  ]],

Cell[TextData[StyleBox["Aggregation of Individual Judgments (AIJ)",
 FontSize->18,
 FontColor->GrayLevel[0.5]]], "Text",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellChangeTimes->{
  3.6327643531209183`*^9, {3.632764431092442*^9, 3.6327644639544363`*^9}, {
   3.6327653216453447`*^9, 3.632765322125648*^9}}],

Cell[TextData[{
 "Let us consider three different PC matrices ",
 Cell[BoxData[
  FormBox["X", TraditionalForm]]],
 ",  ",
 Cell[BoxData[
  FormBox["Y", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["Z", TraditionalForm]]],
 "  that come from three different experts "
}], "Text",
 CellChangeTimes->{{3.632764492090966*^9, 3.632764576060501*^9}, {
  3.632764618846434*^9, 3.6327646512249117`*^9}, {3.6327647859695272`*^9, 
  3.63276480123374*^9}, {3.632764878836213*^9, 3.632764890049505*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", 
       SubscriptBox["x", "12"], 
       SubscriptBox["x", "13"], 
       SubscriptBox["x", "14"]},
      {
       SubscriptBox["x", "21"], "1", 
       SubscriptBox["x", "23"], 
       SubscriptBox["x", "24"]},
      {
       SubscriptBox["x", "31"], 
       SubscriptBox["x", "32"], "1", 
       SubscriptBox["x", "34"]},
      {
       SubscriptBox["x", "41"], 
       SubscriptBox["x", "42"], 
       SubscriptBox["x", "43"], "1"}
     }], "\[NoBreak]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6327646240901937`*^9, 3.632764732933902*^9}, {
  3.632764893585218*^9, 3.6327649237924633`*^9}, {3.6327649849435387`*^9, 
  3.63276498610959*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Y", "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", 
       SubscriptBox["y", "12"], 
       SubscriptBox["y", "13"], 
       SubscriptBox["y", "14"]},
      {
       SubscriptBox["y", "21"], "1", 
       SubscriptBox["y", "23"], 
       SubscriptBox["y", "24"]},
      {
       SubscriptBox["y", "31"], 
       SubscriptBox["y", "32"], "1", 
       SubscriptBox["y", "34"]},
      {
       SubscriptBox["y", "41"], 
       SubscriptBox["y", "42"], 
       SubscriptBox["y", "43"], "1"}
     }], "\[NoBreak]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6327647504910727`*^9, 3.632764776642329*^9}, {
   3.632764928184594*^9, 3.6327649521113787`*^9}, 3.6327649908311653`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Z", "=", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", 
       SubscriptBox["z", "12"], 
       SubscriptBox["z", "13"], 
       SubscriptBox["z", "14"]},
      {
       SubscriptBox["z", "21"], "1", 
       SubscriptBox["z", "23"], 
       SubscriptBox["z", "24"]},
      {
       SubscriptBox["z", "31"], 
       SubscriptBox["z", "32"], "1", 
       SubscriptBox["z", "34"]},
      {
       SubscriptBox["z", "41"], 
       SubscriptBox["z", "42"], 
       SubscriptBox["z", "43"], "1"}
     }], "\[NoBreak]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.632764810041779*^9, 3.632764835730645*^9}, {
  3.6327649566810207`*^9, 3.632764993325926*^9}}],

Cell["\<\
Then it is possible to aggregate the results using appropriate functions. \
\>", "Text",
 CellChangeTimes->{{3.632765002205138*^9, 3.632765041635572*^9}}],

Cell["Aggregate Individual Judgments additively (AIJadd): ", "Text",
 CellChangeTimes->{{3.632765051479233*^9, 3.632765065354813*^9}, {
  3.632766295464085*^9, 3.6327662988638897`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AIJadd", "[", 
   RowBox[{"X", ",", "Y", ",", "Z"}], "]"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.632765068436839*^9, 3.63276508504671*^9}, {
  3.632765132957136*^9, 3.632765166401517*^9}, {3.632766339003354*^9, 
  3.632766340800151*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "12"], "+", 
         SubscriptBox["y", "12"], "+", 
         SubscriptBox["z", "12"]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "13"], "+", 
         SubscriptBox["y", "13"], "+", 
         SubscriptBox["z", "13"]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "14"], "+", 
         SubscriptBox["y", "14"], "+", 
         SubscriptBox["z", "14"]}], ")"}]}]},
     {
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "21"], "+", 
         SubscriptBox["y", "21"], "+", 
         SubscriptBox["z", "21"]}], ")"}]}], "1", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "23"], "+", 
         SubscriptBox["y", "23"], "+", 
         SubscriptBox["z", "23"]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "24"], "+", 
         SubscriptBox["y", "24"], "+", 
         SubscriptBox["z", "24"]}], ")"}]}]},
     {
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "31"], "+", 
         SubscriptBox["y", "31"], "+", 
         SubscriptBox["z", "31"]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "32"], "+", 
         SubscriptBox["y", "32"], "+", 
         SubscriptBox["z", "32"]}], ")"}]}], "1", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "34"], "+", 
         SubscriptBox["y", "34"], "+", 
         SubscriptBox["z", "34"]}], ")"}]}]},
     {
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "41"], "+", 
         SubscriptBox["y", "41"], "+", 
         SubscriptBox["z", "41"]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "42"], "+", 
         SubscriptBox["y", "42"], "+", 
         SubscriptBox["z", "42"]}], ")"}]}], 
      RowBox[{
       FractionBox["1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "43"], "+", 
         SubscriptBox["y", "43"], "+", 
         SubscriptBox["z", "43"]}], ")"}]}], "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.632765079273391*^9, 3.63276508569551*^9}, {
  3.632765138374051*^9, 3.632765166906197*^9}, {3.6327663426980352`*^9, 
  3.6327663543373938`*^9}}]
}, Open  ]],

Cell["Aggregate Individual Judgments geometrically (AIJgeom)", "Text",
 CellChangeTimes->{{3.632765216042226*^9, 3.6327652443279133`*^9}, {
  3.632766302695689*^9, 3.632766331639287*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AIJgeom", "[", 
   RowBox[{"X", ",", "Y", ",", "Z"}], "]"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.632765256124132*^9, 3.6327652904866133`*^9}, {
   3.63276544591251*^9, 3.632765446339807*^9}, {3.632765520099777*^9, 
   3.632765521119959*^9}, 3.6327663790720367`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "12"], " ", 
         SubscriptBox["y", "12"], " ", 
         SubscriptBox["z", "12"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "13"], " ", 
         SubscriptBox["y", "13"], " ", 
         SubscriptBox["z", "13"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "14"], " ", 
         SubscriptBox["y", "14"], " ", 
         SubscriptBox["z", "14"]}], ")"}], 
       RowBox[{"1", "/", "3"}]]},
     {
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "21"], " ", 
         SubscriptBox["y", "21"], " ", 
         SubscriptBox["z", "21"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], "1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "23"], " ", 
         SubscriptBox["y", "23"], " ", 
         SubscriptBox["z", "23"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "24"], " ", 
         SubscriptBox["y", "24"], " ", 
         SubscriptBox["z", "24"]}], ")"}], 
       RowBox[{"1", "/", "3"}]]},
     {
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "31"], " ", 
         SubscriptBox["y", "31"], " ", 
         SubscriptBox["z", "31"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "32"], " ", 
         SubscriptBox["y", "32"], " ", 
         SubscriptBox["z", "32"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], "1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "34"], " ", 
         SubscriptBox["y", "34"], " ", 
         SubscriptBox["z", "34"]}], ")"}], 
       RowBox[{"1", "/", "3"}]]},
     {
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "41"], " ", 
         SubscriptBox["y", "41"], " ", 
         SubscriptBox["z", "41"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "42"], " ", 
         SubscriptBox["y", "42"], " ", 
         SubscriptBox["z", "42"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["x", "43"], " ", 
         SubscriptBox["y", "43"], " ", 
         SubscriptBox["z", "43"]}], ")"}], 
       RowBox[{"1", "/", "3"}]], "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.632765260324128*^9, 3.632765291444057*^9, 3.632765448031505*^9, 
   3.632765522075408*^9, {3.632766362222343*^9, 3.6327663800430193`*^9}}]
}, Open  ]],

Cell["\<\
Note that these two functions works also for result lists i.e.:\
\>", "Text",
 CellChangeTimes->{{3.632766421471128*^9, 3.63276646062016*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AIJgeom", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["x", "1"], ",", 
     SubscriptBox["x", "2"], ",", 
     SubscriptBox["x", "3"], ",", 
     SubscriptBox["x", "4"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["y", "1"], ",", 
     SubscriptBox["y", "2"], ",", 
     SubscriptBox["y", "3"], ",", 
     SubscriptBox["y", "4"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.632766477227779*^9, 3.632766523532176*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SqrtBox[
    RowBox[{
     SubscriptBox["x", "1"], " ", 
     SubscriptBox["y", "1"]}]], ",", 
   SqrtBox[
    RowBox[{
     SubscriptBox["x", "2"], " ", 
     SubscriptBox["y", "2"]}]], ",", 
   SqrtBox[
    RowBox[{
     SubscriptBox["x", "3"], " ", 
     SubscriptBox["y", "3"]}]], ",", 
   SqrtBox[
    RowBox[{
     SubscriptBox["x", "4"], " ", 
     SubscriptBox["y", "4"]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.6327665241296453`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AIJadd", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["x", "1"], ",", 
     SubscriptBox["x", "2"], ",", 
     SubscriptBox["x", "3"], ",", 
     SubscriptBox["x", "4"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["y", "1"], ",", 
     SubscriptBox["y", "2"], ",", 
     SubscriptBox["y", "3"], ",", 
     SubscriptBox["y", "4"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.632766557710536*^9, 3.6327665587536993`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["x", "1"], "+", 
      SubscriptBox["y", "1"]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["x", "2"], "+", 
      SubscriptBox["y", "2"]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["x", "3"], "+", 
      SubscriptBox["y", "3"]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["x", "4"], "+", 
      SubscriptBox["y", "4"]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.632766559753149*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1206, 828},
WindowMargins->{{Automatic, -14}, {Automatic, 0}},
ShowSelection->True,
Magnification:>1.5 Inherited,
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3632767231-5476817"->{
  Cell[2310, 80, 238, 4, 62, "Print",
   CellTags->"Info3632767231-5476817"]},
 "Info3632767055-5476817"->{
  Cell[2820, 99, 238, 4, 62, "Print",
   CellTags->"Info3632767055-5476817"],
  Cell[3061, 105, 1002, 27, 56, "Print",
   CellTags->"Info3632767055-5476817"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3632767231-5476817", 85365, 2801},
 {"Info3632767055-5476817", 85473, 2804}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 372, 9, 152, "Title"],
Cell[955, 33, 678, 17, 430, "Text"],
Cell[CellGroupData[{
Cell[1658, 54, 195, 4, 94, "Subtitle"],
Cell[1856, 60, 77, 1, 46, "Text"],
Cell[1936, 63, 166, 5, 43, "Input"],
Cell[2105, 70, 81, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[2211, 75, 96, 3, 43, "Input"],
Cell[2310, 80, 238, 4, 62, "Print",
 CellTags->"Info3632767231-5476817"]
}, Open  ]],
Cell[2563, 87, 110, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[2698, 92, 97, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[2820, 99, 238, 4, 62, "Print",
 CellTags->"Info3632767055-5476817"],
Cell[3061, 105, 1002, 27, 56, "Print",
 CellTags->"Info3632767055-5476817"]
}, Open  ]]
}, Open  ]],
Cell[4090, 136, 103, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[4218, 141, 100, 3, 43, "Input"],
Cell[4321, 146, 11284, 310, 489, "Print"]
}, Open  ]],
Cell[15620, 459, 90, 1, 43, "Input"],
Cell[15713, 462, 95, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[15833, 467, 757, 23, 113, "Input"],
Cell[16593, 492, 423, 13, 66, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17065, 511, 257, 5, 94, "Subtitle"],
Cell[17325, 518, 108, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[17458, 523, 108, 3, 43, "Input"],
Cell[17569, 528, 137, 2, 43, "Output"]
}, Open  ]],
Cell[17721, 533, 109, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[17855, 538, 109, 3, 43, "Input"],
Cell[17967, 543, 215, 5, 43, "Output"]
}, Open  ]],
Cell[18197, 551, 144, 3, 46, "Text"],
Cell[CellGroupData[{
Cell[18366, 558, 97, 3, 43, "Input"],
Cell[18466, 563, 137, 2, 43, "Output"]
}, Open  ]],
Cell[18618, 568, 109, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[18752, 573, 103, 3, 43, "Input"],
Cell[18858, 578, 234, 6, 43, "Output"]
}, Open  ]],
Cell[19107, 587, 111, 1, 46, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19255, 593, 240, 5, 94, "Subtitle"],
Cell[CellGroupData[{
Cell[19520, 602, 131, 4, 43, "Input"],
Cell[19654, 608, 232, 6, 43, "Output"]
}, Open  ]],
Cell[19901, 617, 164, 4, 46, "Text"],
Cell[CellGroupData[{
Cell[20090, 625, 139, 4, 43, "Input"],
Cell[20232, 631, 239, 6, 43, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20520, 643, 228, 4, 94, "Subtitle"],
Cell[20751, 649, 3050, 85, 261, "Text"],
Cell[CellGroupData[{
Cell[23826, 738, 2467, 80, 157, "Input"],
Cell[26296, 820, 1359, 43, 131, "Output"]
}, Open  ]],
Cell[27670, 866, 846, 24, 47, "Text"],
Cell[CellGroupData[{
Cell[28541, 894, 2479, 80, 157, "Input"],
Cell[31023, 976, 1469, 46, 145, "Output"]
}, Open  ]],
Cell[32507, 1025, 159, 4, 46, "Text"],
Cell[CellGroupData[{
Cell[32691, 1033, 1101, 32, 185, "Input"],
Cell[33795, 1067, 1070, 32, 117, "Output"]
}, Open  ]],
Cell[34880, 1102, 94, 1, 43, "Input"],
Cell[34977, 1105, 473, 8, 78, "Text"],
Cell[CellGroupData[{
Cell[35475, 1117, 226, 10, 141, "Input"],
Cell[35704, 1129, 334, 9, 43, "Output"]
}, Open  ]],
Cell[36053, 1141, 462, 12, 47, "Text"],
Cell[CellGroupData[{
Cell[36540, 1157, 261, 7, 43, "Input"],
Cell[36804, 1166, 764, 20, 97, "Output"]
}, Open  ]],
Cell[37583, 1189, 145, 4, 46, "Text"],
Cell[CellGroupData[{
Cell[37753, 1197, 258, 7, 43, "Input"],
Cell[38014, 1206, 274, 6, 43, "Output"]
}, Open  ]],
Cell[38303, 1215, 167, 3, 46, "Text"],
Cell[CellGroupData[{
Cell[38495, 1222, 223, 5, 43, "Input"],
Cell[38721, 1229, 270, 6, 43, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39040, 1241, 250, 5, 94, "Subtitle"],
Cell[39293, 1248, 311, 6, 105, "Text"],
Cell[CellGroupData[{
Cell[39629, 1258, 2769, 89, 157, "Input"],
Cell[42401, 1349, 929, 26, 95, "Output"]
}, Open  ]],
Cell[43345, 1378, 96, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[43466, 1383, 2692, 86, 157, "Input"],
Cell[46161, 1471, 2088, 62, 173, "Output"]
}, Open  ]],
Cell[48264, 1536, 555, 13, 47, "Text"],
Cell[CellGroupData[{
Cell[48844, 1553, 267, 7, 43, "Input"],
Cell[49114, 1562, 700, 19, 97, "Output"]
}, Open  ]],
Cell[49829, 1584, 228, 5, 46, "Text"],
Cell[CellGroupData[{
Cell[50082, 1593, 261, 7, 43, "Input"],
Cell[50346, 1602, 231, 5, 43, "Output"]
}, Open  ]],
Cell[50592, 1610, 278, 6, 46, "Text"],
Cell[CellGroupData[{
Cell[50895, 1620, 317, 8, 43, "Input"],
Cell[51215, 1630, 297, 7, 43, "Output"]
}, Open  ]],
Cell[51527, 1640, 175, 4, 46, "Text"],
Cell[CellGroupData[{
Cell[51727, 1648, 197, 4, 43, "Input"],
Cell[51927, 1654, 697, 19, 97, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[52673, 1679, 321, 6, 94, "Subtitle"],
Cell[52997, 1687, 94, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[53116, 1692, 206, 5, 43, "Input"],
Cell[53325, 1699, 297, 7, 43, "Output"]
}, Open  ]],
Cell[53637, 1709, 262, 5, 76, "Text"],
Cell[CellGroupData[{
Cell[53924, 1718, 123, 4, 43, "Input"],
Cell[54050, 1724, 120, 2, 43, "Output"]
}, Open  ]],
Cell[54185, 1729, 194, 4, 76, "Text"],
Cell[CellGroupData[{
Cell[54404, 1737, 123, 4, 43, "Input"],
Cell[54530, 1743, 121, 2, 43, "Output"]
}, Open  ]],
Cell[54666, 1748, 129, 3, 46, "Text"],
Cell[CellGroupData[{
Cell[54820, 1755, 131, 4, 43, "Input"],
Cell[54954, 1761, 133, 3, 43, "Output"]
}, Open  ]],
Cell[55102, 1767, 138, 3, 46, "Text"],
Cell[CellGroupData[{
Cell[55265, 1774, 131, 4, 43, "Input"],
Cell[55399, 1780, 11182, 388, 419, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[66630, 2174, 259, 5, 94, "Subtitle"],
Cell[66892, 2181, 114, 1, 46, "Text"],
Cell[CellGroupData[{
Cell[67031, 2186, 196, 5, 43, "Input"],
Cell[67230, 2193, 145, 2, 43, "Output"]
}, Open  ]],
Cell[67390, 2198, 1409, 49, 100, "Text"],
Cell[CellGroupData[{
Cell[68824, 2251, 111, 3, 43, "Input"],
Cell[68938, 2256, 361, 11, 66, "Output"]
}, Open  ]],
Cell[69314, 2270, 241, 5, 76, "Text"],
Cell[CellGroupData[{
Cell[69580, 2279, 418, 15, 43, "Input"],
Cell[70001, 2296, 1065, 22, 151, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71103, 2323, 305, 11, 43, "Input"],
Cell[71411, 2336, 137, 2, 43, "Output"]
}, Open  ]],
Cell[71563, 2341, 301, 6, 81, "Text"],
Cell[71867, 2349, 502, 14, 47, "Text"],
Cell[72372, 2365, 749, 23, 121, "Input"],
Cell[73124, 2390, 724, 22, 121, "Input"],
Cell[73851, 2414, 697, 22, 121, "Input"],
Cell[74551, 2438, 164, 3, 46, "Text"],
Cell[74718, 2443, 185, 2, 46, "Text"],
Cell[CellGroupData[{
Cell[74928, 2449, 302, 7, 43, "Input"],
Cell[75233, 2458, 3346, 106, 178, "Output"]
}, Open  ]],
Cell[78594, 2567, 187, 2, 46, "Text"],
Cell[CellGroupData[{
Cell[78806, 2573, 331, 7, 43, "Input"],
Cell[79140, 2582, 3378, 106, 154, "Output"]
}, Open  ]],
Cell[82533, 2691, 152, 3, 46, "Text"],
Cell[CellGroupData[{
Cell[82710, 2698, 487, 15, 44, "Input"],
Cell[83200, 2715, 489, 19, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83726, 2739, 488, 15, 44, "Input"],
Cell[84217, 2756, 735, 27, 65, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
